home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Meeting Pearls 2
/
Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso
/
Pearls
/
psion
/
src.doc
/
unsorted
/
s3mocb
/
moc.opa
/
moc.txt
next >
Wrap
Text File
|
1984-10-25
|
3KB
|
298 lines
OPLObjectFile**
LOC::M:\OPL\MOC.OPL
moc.MOC
\MOC\
RECNO%
LSTPTR%
NXTPTR%
RUNTOT%
SETTM%
SETTY%
HKNORM$
EVENTMK%
CREAT
FAUTOOFF
CLRMK
ACDEFGINOSTUWXZ
+ FRAME.OPO
Master of Ceremonies (beta)
By John Hind
<ENTER> - Start schedule
<SPACE> - Step to next slot
<MENU> - Other functions
MINS:
SlotO
ShedO
Est:O
Var:O
WRTXT
TIME$
WRNUM
NXTPTR%
Od@[{
[ MASTER of CEREMONIES V2.0 ]O
UK 1992 John HindKO
[ NO ITEMS IN SHEDULE ]O
+ [ START ]O
[ THE END ]O
RUNTOT%
RUNTOT%
ZNUM$
O<T|WBx
SETTY%
SETTM%
STOP%
ADJTM
RECNO%
LSTPTR%
NXTPTR%
GOPOS%
CLRMK
CURTIM%
RUNTOT%
SETTY%
FPARM%
EVENTMK%
CLRMK
GOPOS%
STOP%
ADJTM
FPARM%
EVENTMK%
RUNTOT%
NXTPTR%
RUNTOT%
RECNO%
Od@[
LSTPTR%
RUNTOT%
RECNO%
RECNO%
RECNO%
TIME$
FLOCK
FUNLOCK
RUNTOT%
{IO<{Q
SLOT EDITOR
START:S
END:O
MINS:O
LINE 1:O
LINE 2:O
O<P{I
GOPOS%
ADJTM
RUNTOT%
RECNO%
NXTPTR%
LSTPTR%
Od8[
CLRMK
NXTPTR%
LSTPTR%
GOPOS%
NXTPTR%
CLRMK
SETMK%
GOPOS%
ADJTM
RECNO%
NXTPTR%
LSTPTR%
CLRMK
SETMK%
RECNO%
NXTPTR%
GOPOS%
GOPOS%
NXTPTR%
RECNO%
Od0[-
GOPOS%
FPARM$
NXTPTR%
RECNO%
Od0[n
INIT%
FPARM$
INIT%
FPARM$
FPARM$
Cannot Create File
Cannot Open File
+ Disk Full
Nothing to Insert
Shedule Running
Not a Slot
What's Done is Done
Too Many Items
+ Not Found
+ Cancelled
Bad file name
FPARM%
CLRMK
CUTS%
START%
SETMK%
GOPOS%
EXTMK
FPARM%
FPARM$
HKNORM$
FKMOD%
FPARM%
FLOCK
FUNLOCK
FPARM%
File+
New scheduleON+
Open scheduleOO+
Save asOA
Edit+
Copy slotsOC+
Insert slotsOI+
Delete slotsOD
Search+
FindOF+ Find nextOG+ Find timeOW
Change+
UpdateOU+
Enter slotOE
Special+
StopOZ+ Set timesOT+ Set soundOS+
ExitOX
FPARM$
FLOCK
FUNLOCK
CONFIRM
NoON+
YesOY
CONFIRM%
FPARM$
\MOC\*.MOCO
Overwrite existing file?O
FLOCK
FUNLOCK
VALFILE%
FPARM$
LOC::M:\MOC\
Save Shedule as..
File:O
File copiedO
CPYS%
CLRMK
CopiedO
CUTS%
CLRMK
FLOCK
FUNLOCK
AHKG%
ENTER SEARCH TEXT
Find:O
FindO
QuitO
GOPOS%
GOREC%
EXTMK
CLRMK
PASTC%
FLOCK
FUNLOCK
VALFILE%
FPARM$
\MOC\
Create new schedule
File:O
Use template+
Yes,No
FLOCK
FUNLOCK
FPARM$
\MOC\*.MOC
Open a schedule
Schedule Name:O
FLOCK
FUNLOCK
Set sound options
Time-up warning+
off,on
Overtime warning+
off,on
Advanced warning+
off,on
Minutes beforeO
FLOCK
FUNLOCK
ADJTM
SETTM%
SETTY%
TIME EDITOR
TIME IS:+
Relative,Start time,End Time
TIME:O
ADJTM
RECNO%
TIME$
FLOCK
FUNLOCK
GOTIM%
EXTMK
H|WBO<|WBQ
GO TO
START:
TIME:O
CONFIRM%
+#Shedule run will be lost, continue?O
CONFIRM%
STOP%
+#Shedule run will be lost, continue?O
CREAT
STI%0
WRTXT(
WRNUM}
TIME$
ZNUM$<
CURTIM%
ADJTM
INIT%T
START%
NEXT$
STOP%
GOREC%h
GOPOS%
GOTIM%*
EDI%y
CLRMK
SETMK%F
EXTMK+
CUTS%
CPYS%/
PASTC%
DELR7
ACREATE%-
AOPEN%
ACLOSE%
AERROR%6
AMH5%a
AMH6%
AMH8%
AMH9%
AMH10%
CONFIRM%
VALFILE%m"
AHKA%
AHKC%
AHKD%
AHKE%
AHKF%l$
AHKG%
AHKI%
AHKN%
AHKO%
AHKS%['
AHKT%r(
AHKU%])
AHKW%c*
AHKX%p+
AHKZ%